Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d7/dbdial.arc/EXDIAL3.PRG

Text File | 1989-08-20 | 2KB | 77 lines

do while .T.
clear
set talk off
Set status off
set delimiters to '[]'
set delimiters on
message = "DIALx.BIN Example Program"
do menubox with message
store 0 to m_port
store space(20) to m_number
@8,23 say [Is your modem on COM1: or COM2:] color bg+
@8,54 get m_port picture '9'
read
if m_port = 1
load dial1
@8,54 say [COM1:] color gr+
else
load dial2
@8,54 say [COM2:] color gr+
endif
@10,20 say [Enter number to dial ] color bg+
@10,41 get m_number
read
store trim(m_number) to m_number
store 'Dialing - ' + m_number to m_dial
@12,40 - (len(m_dial)/2) say m_dial color gr*+
@14,24 say [Press <SPACE> to hang up modem.] color w+
if m_port = 1
call dial1 with m_number
else
call dial2 with m_number
endif
store 'N' to ans
@22,29 say [Dial another number?] color r+
@22,51 get ans picture '!'
if ans = 'Y'
loop
else
clear
message = 'Enjoy the new power of dBASE'
do menubox with message
@7,5 say [Future enhancements include:] color r
@8,10 say [Support for COM3: and COM4:] color w+
@9,10 say [Error codes returned ] color w+
@10,10 say [Pulse Dialing] color w+
@12,3 say [Please support Starboard Tack Consulting by registering your copy of DIALx,] color gr+
@13,3 say [or, give us a call for any of your custom dBASE, or Clipper programming ] color gr+
@14,3 say [needs. (Our address is in the documents you recieved with this archive.] color gr+
@22,23 say [Press any key to return to dBASE] color r+
l_key = 0
do while l_key = 0
l_key = inkey()
enddo
if m_port = 1
release module dial1
else
release module dial2
endif
release all like m*
set status on
set delimiters off
set color to
set talk on
return
endif
enddo

PROC menubox
PARA name
CLEA
@ 0, 0 TO 23, 79 DOUB COLO G
@ 2, 1 TO 2, 78 DOUB COLO G
@ 1, 1 SAY SUBS(CDOW(DATE()),1,3)+'. '+Dtoc(DATE())+' ' COLO GR+
@ 1, 41 - (LEN(name)/2) SAY name COLO GR+
RETU